home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G35F / G34_ASAA.Dxr / 00019.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  1.2 KB  |  72 lines
  1. global i
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   repeat with i = 11 to 14
  6.     set the cursor of sprite i to mycursor
  7.   end repeat
  8.   set volset to the soundLevel
  9.   if the soundEnabled = 0 then
  10.     set the soundEnabled to 1
  11.   end if
  12. end
  13.  
  14. on doexit
  15.   sound stop 1
  16.   go("M2", "@::JMACMENU")
  17. end
  18.  
  19. on dolinknani
  20.   sound stop 1
  21.   go(1, "G35_NANI")
  22. end
  23.  
  24. on douranai
  25.   sound stop 1
  26.   go(1, "G34_URAN")
  27. end
  28.  
  29. on crtopen
  30.   puppetSprite(7, 1)
  31.   repeat while the stillDown
  32.     set the memberNum of sprite 7 to 5
  33.     updateStage()
  34.   end repeat
  35.   set the memberNum of sprite 7 to 4
  36.   updateStage()
  37.   puppetSprite(7, 0)
  38. end
  39.  
  40. on crtclose
  41.   puppetSprite(8, 1)
  42.   repeat while the stillDown
  43.     set the memberNum of sprite 8 to 7
  44.     updateStage()
  45.   end repeat
  46.   set the memberNum of sprite 8 to 6
  47.   updateStage()
  48.   puppetSprite(8, 0)
  49. end
  50.  
  51. on crtprof
  52.   puppetSprite(10, 1)
  53.   repeat while the stillDown
  54.     set the memberNum of sprite 10 to 11
  55.     updateStage()
  56.   end repeat
  57.   set the memberNum of sprite 10 to 10
  58.   updateStage()
  59.   puppetSprite(10, 0)
  60. end
  61.  
  62. on crtlinknani
  63.   puppetSprite(9, 1)
  64.   repeat while the stillDown
  65.     set the memberNum of sprite 9 to 9
  66.     updateStage()
  67.   end repeat
  68.   set the memberNum of sprite 9 to 8
  69.   updateStage()
  70.   puppetSprite(9, 0)
  71. end
  72.